home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRINTING / BARCODE.ZIP / BARTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-11-25  |  809 b   |  41 lines
  1. USES
  2.     Crt, Barcode, Printer;
  3.  
  4.  
  5. VAR
  6. {  Lst : TEXT;}
  7.    Ch  : CHAR;
  8.    Typ : Printer_Type;
  9.  
  10. BEGIN
  11.      WRITELN;
  12.      WRITELN ('Bar Code Test');
  13.      WRITELN;
  14.  
  15.      WRITE ('Select Printer Type (E=Epson, I=IbmPro, L=HPLaser) ');
  16.  
  17.      Ch := UPCASE (READKEY);
  18.  
  19.      CASE Ch OF
  20.           'L' : Typ := Laser;
  21.           'I' : Typ := Ibm;
  22.           'E' : Typ := Epson;
  23.           ELSE EXIT;
  24.      END;
  25.  
  26. {    ASSIGN (Lst,'TEST');
  27.      REWRITE (Lst);}
  28.  
  29.      Print_BarCode (Lst,Typ,'1234567',    1);
  30.      Print_BarCode (Lst,Typ, '9876543',   1);
  31.      Print_BarCode (Lst,Typ,'12345678901',1);
  32.  
  33.      Print_BarCode (Lst,Typ,'1234567',    2);
  34.      Print_BarCode (Lst,Typ, '9876543',   2);
  35.      Print_BarCode (Lst,Typ,'12345678901',2);
  36.  
  37.      WRITE (Lst,#$0C);
  38.  
  39. {    CLOSE (Lst);}
  40. END.
  41.